Imports System.Windows.Forms

Public Class FormNuevoTipoLector
    Private WithEvents efectos As New ClaseGolosinaVisual

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Dim tipo As New ClaseTipoLector
        tipo.Categoria = CInt(Me.txtCategoria.Text)
        tipo.nombreTIPO = Me.txtNombreTipoLector.Text
        tipo.CantPrestamos = CInt(Me.TextBox1.Text)
        tipo.Grabar()
        ClaseTipoLector.LlenarCombo(FormLector.cbTipoLector)
        FormLector.cbTipoLector.Text = tipo.nombreTIPO
        efectos.VentanaWowClose()
    End Sub


    Private Sub FormNuevoTipoLector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        efectos.VentanaWow(Me, 301, 164)
    End Sub

    Private Sub efectos_formClosed() Handles efectos.formClosed
        Me.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        efectos.VentanaWowClose()
    End Sub
End Class
